home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / RBBS.T < prev    next >
Text File  |  1991-02-16  |  14KB  |  272 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  :
  6.  : Entry in %ZCUSER.IDS for RBBS: remote,password,first,last
  7.  :   remote:   argument of "call" command
  8.  :   password: signon password (required)
  9.  :   first:    first name. Optional: assumed equal to %n1
  10.  :   last:     last name.  Optional: assumed equal to %n2
  11.  :
  12.  : optional entry for conferences to read: remote/conf,n00,n01,n02,...
  13.  :   where "n00,n01,n02,..." represents a list of conference NAMES
  14.  :
  15.  ena -K!Z p?0 findq "\n%remote," %lib/%ZCUSER.ids
  16.  if ? split z0 , , , "";if %z1 goto haveuser
  17.  pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
  18.  ife r nolog close;return
  19. haveuser:
  20.  ife !%z2 sets z2 %n1;ife !%z3 sets z3 %n2
  21.  pat;pat 0 "\rD'Bridge";pat 1 "FrontDoor "
  22.  pat 2 "BinkleyT";pat 3 "Press Any Key to continue"
  23. inituser:
  24.  pat 4 "IRST name?";pat 5 "irst name?"
  25.  wait -F20;if n bye;ki;ife r nolog close;return
  26.  if 0||1 pat;ena -t put \E\E ena -!t goback inituser
  27.  if 2 pat;mput \E;goback inituser
  28.  if 3 pat;mput \r goback inituser
  29.  pat;put \b\b%z2\r
  30.  pat
  31.  pat 0c "ast name?" "\b\b%z3\r"
  32.  pat 1c "AST name?" "\b\b%z3\r"
  33.  pat 2c "echo)? " "\b\b%z1\r"
  34.  pat 3c "Echo)? " "\b\b%z1\r"
  35.  pat 4c "password? " "\b\b%z1\r"
  36.  pat 5l "logging \U%z2 %z3"
  37.  pat 6l "Logging \U%z2 %z3"
  38.  pf30 wait -f30;if n bye;ife r nolog close;return
  39.  pat;pat 0l "RBBS";wait;if n bye;ife r nolog close;return
  40. test:
  41.  split y2 , "";sets s7 %z0
  42.  pat;pat 0c \n "@w set z8 0 set z9 0 pf30 ena -f30";pat 3c \r\r @ki
  43.  pat 1c ? "@set z9 1 pf1 ena -f1";pat 2c "Press Any Key" "@set z9 2 pf1 ena -f1"
  44.  pat 6c More "@set z8 1";pat 7c MORE "@set z8 1";pat 8c more "@set z8 1"
  45.  pat 9c command "@set z8 2";pat 10c Command "@set z8 2";pat 11c COMMAND "@set z8 2"
  46.  pat 12c bulletin "@set z8 3";pat 13c Bulletin "@set z8 3";pat 14c BULLETIN "@set z8 3"
  47. waitpr:
  48.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  49.  ife iz9,2 mput \r goback waitpr;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  50.  ife iz8,0 mput \r goback waitpr;if iz8,1 mput c\r goback waitpr
  51.  ife iz8,2 goto main
  52.  pat 15c "READ ALL" "@set z8 4";pat 16c "Read All" "@set z8 4"
  53.  pat 17c "Read all" "@set z8 4";mput N\r
  54. waitrb:
  55.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  56.  ife iz9,2 mput \r goback waitrb;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  57.  ife iz8,0 mput \r goback waitrb;if iz8,1 mput c\r goback waitrb
  58.  ife iz8,2 goto main;ife iz8,3 goto buldone;pat 15l "^K" "@set z9 3"
  59.  pat 16l Ctrl "@set z9 3";pat 17l CTRL "@set z9 3";mput Y\r
  60. waitsb:
  61.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  62.  ife iz9,2 mput \r goback waitsb;if iz9,3 goto bulcap
  63.  mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b;ife iz8,0 mput \r goback waitsb
  64.  ife iz8,1 mput c\r goback waitsb;ife iz8,2 goto main;goto buldone
  65. bulcap:
  66.  ife r nolog close;ki;create -+S!i %n9/%remote.bul
  67.  pat 15c "";pat 16c "";pat 17c ""
  68. waitbl:
  69.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  70.  ife iz9,2 mput \r goback waitbl;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  71.  ife iz8,0 mput \r goback waitbl;if iz8,1 mput c\r goback waitbl
  72.  ki;ife r nolog close;create -+S!i %n9/ZC%d%ano.LOG;if iz8,2 goto main
  73. buldone:
  74.  pat 15c "";pat 16c "";pat 17c "";mput \r
  75. waitbe:
  76.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  77.  ife iz9,2 mput \r goback waitbe;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  78.  ife iz8,0 mput \r goback waitbe;if iz8,3 mput \r goback waitbe
  79.  if iz8,1 mput c\r goback waitbe
  80. main:
  81.  pat;pat 0c \n "@w set z8 0 set z9 0 pf30 ena -f30";pat 3c \r\r @ki
  82.  pat 1c ? "@set z9 1 pf1 ena -f1";pat 2c "Press Any Key" "@set z9 2 pf1 ena -f1"
  83.  pat 6c More "@set z8 1";pat 7c MORE "@set z8 1";pat 8c more "@set z8 1"
  84.  pat 9c command "@set z8 2";pat 10c Command "@set z8 2";pat 11c COMMAND "@set z8 2"
  85.  pat 4c Novice "@set z7 0";pat 5c NOVICE "@set z7 0";set z7 1 mput X\r
  86. waitxp:
  87.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  88.  ife iz9,2 mput \r goback waitxp;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  89.  ife iz8,0 mput \r goback waitxp;if iz8,1 mput c\r goback waitxp
  90.  if iz7,0 set z7 1 mput X\r goback waitxp
  91.  set z0 "" p?0 findq "\n%remote/conf," %lib/%ZCUSER.ids
  92.  set s5 "-1" split z0 , "";ife !%z1 set s6 MAIN;else setc s6 \U%z1
  93. next:
  94.  split s6 , "";sets s6 %z1;setn s5 s5+1;if %s5==1 sets s5 "0%s5"
  95.  pat;pat 0c \n "@w set z7 0 set z8 0 set z9 0 pf30 ena -f30";pat 3c \r\r @ki
  96.  pat 1c ? "@set z9 1 pf1 ena -f1";pat 2c "Press Any Key" "@set z9 2 pf1 ena -f1"
  97.  pat 6c More "@set z8 1";pat 7c MORE "@set z8 1";pat 8c more "@set z8 1"
  98.  pat 9c command "@set z8 2";pat 10c Command "@set z8 2";pat 11c COMMAND "@set z8 2"
  99.  pat 4c \U%z0 "@set z7 1";set z7 0 mput "J %z0\r"
  100. waitnx:
  101.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  102.  ife iz9,2 mput \r goback waitnx;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  103.  ife iz8,0 mput \r goback waitnx;if iz8,1 mput c\r goback waitnx
  104.  if iz7,0 ife %s6 goback next;goto last
  105.  if f%n8/%remote%s5.* expand %lib/rbbsmail.t %n8/%remote%s5.*
  106.  if !c bye;ife r nolog close;return
  107.  pat;pat 0c \n "@ki set z7 0 set z8 0 set z9 0 pf30 ena -f30";pat 3c \r\r @ki
  108.  pat 1c ? "@set z9 1 pf1 ena -f1";pat 2c "Press Any Key" "@set z9 2 pf1 ena -f1"
  109.  pat 6c More "@set z8 1";pat 7c MORE "@set z8 1";pat 8c more "@set z8 1"
  110.  pat 9c command "@set z8 2";pat 10c Command "@set z8 2";pat 11c COMMAND "@set z8 2"
  111.  pat 4i "Msg #:" "@set z9 3";pat 12c ince "@set z8 3";pat 13c INCE "@set z8 3"
  112.  ife r nolog close;ki;create -+S!i %n9/%remote%s5.log;mput "r;s\r"
  113. waitmf:
  114.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  115.  if iz9,3 pat 0c \n "@w set z8 0 set z9 0 pf30 ena -f30";pat 4c "";goback waitmf
  116.  ife iz9,2 mput \r goback waitmf;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  117.  ife iz8,0 mput \r goback waitmf;if iz8,1 mput c\r goback waitmf
  118.  ki;ife r nolog close;create -+S %n9/ZC%d%ano.LOG
  119.  if iz8,2 ife %s6 goback next;goto last
  120.  pat 0c \n "@w set z8 0 set z9 0 pf30 ena -f30";pat 4c "";mput Q\r
  121. waitmq:
  122.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  123.  ife iz9,2 mput \r goback waitmq;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  124.  ife iz8,0 mput \r goback waitmq;ife iz8,3 mput \r goback waitmq
  125.  ife iz8,1 mput c\r goback waitmq;if %s6 goback next
  126. last:
  127.  pat;pat 0c \n "@w set z8 0 set z9 0 pf30 ena -f30";pat 3c \r\r @ki
  128.  pat 1c ? "@set z9 1 pf1 ena -f1";pat 2c "Press Any Key" "@set z9 2 pf1 ena -f1"
  129.  pat 6c More "@set z8 1";pat 7c MORE "@set z8 1";pat 8c more "@set z8 1"
  130.  pat 9c command "@set z8 2";pat 10c Command "@set z8 2";pat 11c COMMAND "@set z8 2"
  131.  mput "J MAIN\r"
  132. waitml:
  133.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  134.  ife iz9,2 mput \r goback waitml;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  135.  ife iz8,0 mput \r goback waitml;if iz8,1 mput c\r goback waitml
  136.  pat 0c \n "@w set z7 0 set z8 0 set z9 0 pf30 ena -f30"
  137.  pat 4c FILE "@set z7 1";set z7 0;mput F\r
  138. waitfm:
  139.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  140.  ife iz9,2 mput \r goback waitfm;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  141.  ife iz8,0 mput \r goback waitfm;if iz8,1 mput c\r goback waitfm
  142.  ife iz7,0 goto nfmenu;if !f%n8/%remote.ul goto nupl
  143.  : Upload files listed in <bbs>.ul as follows: filename.ext,description
  144.  : description size: |----+--Min<..-+---2+0---+---3+0---..Max>
  145.  display inhibit;open -!g %n8/%remote.ul;display noinhibit;if !t goto dupl
  146. ulskip:
  147.  grab z1;if !t goto dupl
  148.  setc z9 \032;if Iz9,z1 nolog closetx;goto dupl
  149.  split z1 , "";if !%z0||%z1<12||%z1>41 goback ulskip
  150.  pat;pat 0c \n "@w set z8 0 set z9 0 pf30 ena -f30";pat 3c \r\r @ki
  151.  pat 1c ? "@set z9 1 pf1 ena -f1";pat 2c "Press Any Key" "@set z9 2 pf1 ena -f1"
  152.  pat 6c More "@set z8 1";pat 7c MORE "@set z8 1";pat 8c more "@set z8 1"
  153.  pat 9c command "@set z8 2";pat 10c Command "@set z8 2";pat 11c COMMAND "@set z8 2"
  154.  pat 12i "bytes free" "@set z9 3";pat 13l "RECEIVE" "@set z9 4"
  155.  pat 14l "eceive" "@set z9 4";mput "U;%z0\r"
  156. waituf:
  157.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  158.  if iz9,4 mput \030\030\030\030\030\030\030\030\030\030\030\030\030 goto ufdone
  159.  ife iz9,2 mput \r goback waituf;ife iz9,3 goto ufproto;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  160.  ife iz8,0 mput \r goback waituf;ife iz8,1 mput c\r goback waituf;goback ulskip
  161. ufproto:
  162.  pat 4l "RECEIVE" "@set z9 3";pat 5l "eceive" "@set z9 3"
  163.  pat 12c SELECT "@set z8 3";pat 13c Select "@set z8 3";pat 14c select "@set z8 3"
  164.  pat 15c Xmodem;pat 16c Ymodem;pat 18c Kermit;pat 19c Zmodem
  165. waitup:
  166.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  167.  ife iz9,2 mput \r goback waitup;ife iz9,3 goto sendup;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  168.  ife iz8,0 mput \r goback waitup;ife iz8,1 mput c\r goback waitup
  169.  ife iz8,2 goback ulskip;mput y\r goback waitup
  170. sendup:
  171.  ife 16 sx -k %z0;else ife 15 sx %z0;else ife 18 send %z0;else if 19 sz -k %z0
  172.  else mput \030\030\030\030\030\030\030\030\030\030\030\030\030
  173. ufdone:
  174.  pat;pat 0c \n "@w set z8 0 set z9 0 pf30 ena -f30";pat 3c \r\r @ki
  175.  pat 1c ? "@set z9 1 pf1 ena -f1";pat 2c "Press Any Key" "@set z9 2 pf1 ena -f1"
  176.  pat 6c More "@set z8 1";pat 7c MORE "@set z8 1";pat 8c more "@set z8 1"
  177.  pat 9c command "@set z8 2";pat 10c Command "@set z8 2";pat 11c COMMAND "@set z8 2"
  178. waitud:
  179.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  180.  ife iz9,2 mput \r goback waitud;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  181.  ife iz8,0 mput \T%z1 mput \r goback waitud;ife iz8,1 mput c\r goback waitud;goback ulskip
  182. dupl:
  183.  del %n8/%remote.ul
  184. nupl:
  185.  gosub .%lib/agelist.t;if as0<14 goto nlst
  186.  pat;pat 0c \n "@ki set z8 0 set z9 0 pf30 ena -f30";pat 3c \r\r @ki
  187.  pat 1c ? "@set z9 1 pf1 ena -f1";pat 2c "Press Any Key" "@set z9 2 pf1 ena -f1"
  188.  pat 6c More "@set z8 1";pat 7c MORE "@set z8 1";pat 8c more "@set z8 1"
  189.  pat 9c command "@set z8 2";pat 10c Command "@set z8 2";pat 11c COMMAND "@set z8 2"
  190.  pat 12c irector "@set z8 3";pat 13c IRECTOR "@set z8 3"
  191.  pat 15l Ctrl "@set z9 3";pat 16l CTRL "@set z9 3";pat 17l "^K" "@set z9 3"
  192.  mput "l;a\r"
  193. waitlf:
  194.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  195.  ife iz9,2 mput \r goback waitlf;ife iz9,3 goto lfscan;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  196.  ife iz8,0 mput \r goback waitlf;ife iz8,1 mput c\r goback waitlf
  197.  ife iz8,3 mput a\r goback waitlf;goto nlst
  198. lfscan:
  199.  ki;create -yS!i %n7/%remote.lst
  200.  if r split t " ";echof "\T%telno %remote";echof "\T%s7 %z1"
  201.  pat 0c \n "@w set z8 0 set z9 0 pf30 ena -f30"
  202.  pat 14c "download what" "@set z8 3";pat 15c "";pat 16c "";pat 17c ""
  203. waitld:
  204.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  205.  ife iz9,2 mput \r goback waitld;ife iz9,3 goto lfscan;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  206.  ife iz8,0 mput \r goback waitld;ife iz8,1 mput c\r goback waitld
  207.  ki;ife r nolog close;if iz8,2 goto nlst
  208. lfquit:
  209.  pat 0c \n "@set z8 0 set z9 0 pf30 ena -f30";pat 3c "";mput q\r
  210. waitlq:
  211.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  212.  ife iz9,2 mput \r goback waitlq;if iz9,3 goto lfscan
  213.  mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b;if iz8,0 mput \r goback waitlq
  214.  ife iz8,1 mput c\r goback waitlq;if iz8,3 mput q\r goback waitlq
  215. nlst:
  216.  ki;create -+ %n9/ZC%d%ano.LOG
  217.  if !f%n8/%remote.dl goto ndnl
  218.  : Download files listed in <bbs>.dl
  219.  display inhibit;open -!g %n8/%remote.dl;display noinhibit
  220.  if !t goto ddnl
  221. dlskip:
  222.  grab z0;if !t goto ddnl
  223.  setc z9 \032;if Iz9,z0 nolog closetx;goto ddnl
  224.  if !%z0 goback dlskip
  225.  pat;pat 0c \n "@w set z8 0 set z9 0 pf30 ena -f30";pat 3c \r\r @ki
  226.  pat 1c ? "@set z9 1 pf1 ena -f1";pat 2c "Press Any Key" "@set z9 2 pf1 ena -f1"
  227.  pat 6c More "@set z8 1";pat 7c MORE "@set z8 1";pat 8c more "@set z8 1"
  228.  pat 9c command "@set z8 2";pat 10c Command "@set z8 2";pat 11c COMMAND "@set z8 2"
  229.  pat 4l "SEND" "@set z9 3";pat 5l "send" "@set z9 3"
  230.  pat 12c SELECT "@set z8 3";pat 13c Select "@set z8 3";pat 14c select "@set z8 3"
  231.  pat 15c Xmodem;pat 16c Ymodem;pat 18c Kermit;pat 19c Zmodem
  232.  mput "D;%z0\r"
  233. waitdl:
  234.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  235.  ife iz9,2 mput \r goback waitdl;ife iz9,3 goto recvdl;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  236.  ife iz8,0 mput \r goback waitdl;ife iz8,1 mput c\r goback waitdl
  237.  ife iz8,2 goback dlskip;mput y\r goback waitdl
  238. recvdl:
  239.  ife 15||16 rc %z0 goto dldone;ife 18 goto dldone
  240.  if !19 mput \030\030\030\030\030\030\030\030\030\030\030\030\030 goto dldone
  241.  pat;pat 0i "rz\r**\030";pf30 wait -f30;if n bye;ife r nolog close;return
  242.  rz -p
  243. dldone:
  244.  pat;pat 0c \n "@w set z8 0 set z9 0 pf30 ena -f30";pat 3c \r\r @ki
  245.  pat 1c ? "@set z9 1 pf1 ena -f1";pat 2c "Press Any Key" "@set z9 2 pf1 ena -f1"
  246.  pat 6c More "@set z8 1";pat 7c MORE "@set z8 1";pat 8c more "@set z8 1"
  247.  pat 9c command "@set z8 2";pat 10c Command "@set z8 2";pat 11c COMMAND "@set z8 2"
  248. waitdd:
  249.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  250.  ife iz9,2 mput \r goback waitdd;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  251.  ife iz8,0 mput \r goback waitdd;ife iz8,1 mput c\r goback waitdd;goback dlskip
  252. ddnl:
  253.  del %n8/%remote.dl
  254. ndnl:
  255.  pat;pat 0c \n "@w set z8 0 set z9 0 pf30 ena -f30";pat 3c \r\r @ki
  256.  pat 1c ? "@set z9 1 pf1 ena -f1";pat 2c "Press Any Key" "@set z9 2 pf1 ena -f1"
  257.  pat 6c More "@set z8 1";pat 7c MORE "@set z8 1";pat 8c more "@set z8 1"
  258.  pat 9c command "@set z8 2";pat 10c Command "@set z8 2";pat 11c COMMAND "@set z8 2"
  259.  mput "Q;M\r"
  260. waitqf:
  261.  set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  262.  ife iz9,2 mput \r goback waitqf;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  263.  ife iz8,0 mput \r goback waitqf;ife iz8,1 mput c\r goback waitqf
  264. nfmenu:
  265.  if f%lib/%remote.t gosub .%lib/%remote.t
  266.  if !c bye;ife r nolog close;return
  267.  pat;lput "\r\n%n1, press alt-N if you want to run the session manually.\r\n"
  268.  pat;pat 23cp "Press Any Key to continue" \r
  269.  pat 24cp "rz\r**\030" "@rz -p";wait -F5;if !c bye;ife r nolog close;return
  270.  pat;pat 0c ")?" "\b\b\b\b\b\by\r";mput "\b\b\b\bg\r"
  271.  wait -F35;ife c bye;ife r nolog close;return
  272.